home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_B.d64 / banner printer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  671b  |  38 lines
  1. 0 rem **banner printer **
  2. 1 rem **64 programmer iss.1 **
  3. 10 open4,4
  4. 20 h=6:rem hight/8
  5. 30 w=2:rem width/8
  6. 40 qq$="a message, 80 chars max"
  7. 50 forj=1tolen(qq$)
  8. 60 c=asc(mid$(qq$,j,1))
  9. 70 gosub90:nextj
  10. 80 print#4:close4:end
  11. 85 :
  12. 90 rem ** print character **
  13. 100 gosub210
  14. 110 t=128
  15. 120 a$=" ":forv=7to0step-1
  16. 130 rem print x(v)and t;t
  17. 140 if(x(v)andt)<>tthengoto160
  18. 150 forp=1toh:a$=a$+"*":nextp:goto170
  19. 160 forp=1toh:a$=a$+" ":nextp
  20. 170 nextv
  21. 180 fore=1tow:print#4,a$:nexte
  22. 190 t=t/2:ift<1thenreturn
  23. 200 goto120
  24. 205 :
  25. 210 rem**find char in rom**
  26. 220 ifc>31andc<64thenm=c
  27. 230 ifc>63andc<96thenm=c-64
  28. 240 ifc>95andc<128thenm=c-32
  29. 250 ifc>159andc<192thenm=c-64
  30. 260 poke56334,peek(56334)and254
  31. 270 poke1,peek(1)and251
  32. 280 forr=0to7
  33. 290 x(r)=peek(53248+(m*8)+r)
  34. 300 nextr
  35. 310 poke1,peek(1)or4
  36. 320 poke56334,peek(56334)or1
  37. 330 return
  38.